home *** CD-ROM | disk | FTP | other *** search
- 0010 ╨╥╧├ FIG'1
- 0020 BEEPAT(4,2)
- 0030 RT
- 0040 ┼╬─╨╥╧├ FIG'1
- 0050
- 0060 ╨╥╧├ FIG'2
- 0070 BEEPAT(5,2)
- 0080 R'WALL(2,2,5)
- 0090 RODERIGUE(7,2)
- 0100 LT
- 0110 ┼╬─╨╥╧├ FIG'2
- 0120
- 0130 ╨╥╧├ FIG'3
- 0140 R'WALL(1,2,3)
- 0150 R'WALL(1,2,6)
- 0160 R'WALL(3,4,4)
- 0170 R'WALL(3,4,5)
- 0180 S'WALL(4,4,2)
- 0190 S'WALL(6,6,2)
- 0200 S'WALL(5,5,4)
- 0210 RODERIGUE(2,1); RT
- 0220 ┼╬─╨╥╧├ FIG'3
- 0230
- 0240 ╨╥╧├ FIG'4
- 0250 S'WALL(4,6,2)
- 0260 S'WALL(4,6,6)
- 0270 S'WALL(3,3,4)
- 0280 S'WALL(3,3,5)
- 0290 R'WALL(3,4,3)
- 0300 R'WALL(6,6,3)
- 0310 R'WALL(3,6,6)
- 0320 BEEPAT(3,3)
- 0330 RODERIGUE(4,3); LT
- 0340 ┼╬─╨╥╧├ FIG'4
- 0350
- 0360 ╨╥╧├ FIG'5
- 0370 S'WALL(7,9,2)
- 0380 S'WALL(7,9,6)
- 0390 S'WALL(6,6,4)
- 0400 S'WALL(6,6,5)
- 0410 R'WALL(3,4,6)
- 0420 R'WALL(6,6,6)
- 0430 R'WALL(3,6,9)
- 0440 RODERIGUE(7,5); RT
- 0450 BEEPAT(3,7); BEEPAT(3,8)
- 0460 BEEPAT(4,6); BEEPAT(5,5)
- 0470 ┼╬─╨╥╧├ FIG'5
- 0480
- 0490 ╨╥╧├ FIG'6
- 0500 ╞╧╥ I:=1 ╘╧ 3 ─╧
- 0510 R'WALL(I,I,I+1)
- 0520 S'WALL(I+2,I+2,I)
- 0530 BEEPAT(I+2,I+1)
- 0540 ┼╬─╞╧╥ I
- 0550 R'WALL(1,3,5)
- 0560 RODERIGUE(2,1); RT
- 0570 ┼╬─╨╥╧├ FIG'6
- 0580
- 0590 ╨╥╧├ FIG'7
- 0600 ╞╧╥ G':=3 ╘╧ 7 ─╧
- 0610 ╞╧╥ V':=2 ╘╧ 7 ─╧
- 0620 BEEPAT(G',V')
- 0630 ┼╬─╞╧╥ V'
- 0640 ┼╬─╞╧╥ G'
- 0650 ┼╬─╨╥╧├ FIG'7
- 0660
- 0670 ╨╥╧├ FIG'8
- 0680 ╨╥╧├ STP
- 0690 MOVE; RT; MOVE
- 0700 PUTBEEP; LT
- 0710 ┼╬─╨╥╧├ STP
- 0720 //
- 0730 ╨╥╧├ ROW
- 0740 STP; STP
- 0750 STP; STP
- 0760 ┼╬─╨╥╧├ ROW
- 0770 //
- 0780 ╨╥╧├ L'TURN
- 0790 MOVE
- 0800 MOVE; LT; LT
- 0810 ┼╬─╨╥╧├ L'TURN
- 0820 //
- 0830 ╨╥╧├ R'TURN
- 0840 RT; MOVE
- 0850 MOVE; RT
- 0860 ┼╬─╨╥╧├ R'TURN
- 0870 //
- 0880 RODERIGUE(5,1)
- 0890 ROW
- 0900 L'TURN
- 0910 ROW
- 0920 R'TURN
- 0930 ROW
- 0940 L'TURN
- 0950 ROW
- 0960 ┼╬─╨╥╧├ FIG'8
- 0970
- 0980 ╨╥╧├ FIG'9
- 0990 ╨╥╧├ ONE'DOWN
- 1000 MOVE; MOVE
- 1010 PUTBEEP
- 1020 ┼╬─╨╥╧├ ONE'DOWN
- 1030
- 1040 ╨╥╧├ NEW'WEST
- 1050 MOVE; LT; MOVE
- 1060 PUTBEEP; LT
- 1070 ┼╬─╨╥╧├ NEW'WEST
- 1080
- 1090 ╨╥╧├ NEW'EAST
- 1100 MOVE; RT; MOVE
- 1110 PUTBEEP; RT
- 1120 ┼╬─╨╥╧├ NEW'EAST
- 1130
- 1140 RT; MOVE
- 1150 ONE'DOWN
- 1160 NEW'WEST
- 1170 ONE'DOWN
- 1180 NEW'EAST
- 1190 ONE'DOWN; ONE'DOWN
- 1200 NEW'WEST
- 1210 ONE'DOWN; ONE'DOWN; ONE'DOWN
- 1220 ┼╬─╨╥╧├ FIG'9
-